home *** CD-ROM | disk | FTP | other *** search
- /*
- * Source machine generated by GadToolsBox V2.0b
- * which is (c) Copyright 1991-1993 Jaba Development
- *
- * GUI Designed by : Michael D. Bayne
- */
-
- #include <exec/types.h>
- #include <intuition/intuition.h>
- #include <intuition/classes.h>
- #include <intuition/classusr.h>
- #include <intuition/imageclass.h>
- #include <intuition/gadgetclass.h>
- #include <libraries/gadtools.h>
- #include <graphics/displayinfo.h>
- #include <graphics/gfxbase.h>
- #include <clib/exec_protos.h>
- #include <clib/intuition_protos.h>
- #include <clib/gadtools_protos.h>
- #include <clib/graphics_protos.h>
- #include <clib/utility_protos.h>
- #include <string.h>
- #include <clib/diskfont_protos.h>
-
- #include "FlyingToaster.h"
-
- struct Screen *Scr = NULL;
- UBYTE *PubScreenName = "Workbench";
- APTR VisualInfo = NULL;
- struct Window *FlyingToasterWnd = NULL;
- struct Gadget *FlyingToasterGList = NULL;
- struct IntuiMessage FlyingToasterMsg;
- struct Gadget *FlyingToasterGadgets[5];
- UWORD FlyingToasterLeft = 0;
- UWORD FlyingToasterTop = 11;
- UWORD FlyingToasterWidth = 359;
- UWORD FlyingToasterHeight = 47;
- UBYTE *FlyingToasterWdt = (UBYTE *)"Flying Toaster Prefs";
- struct TextAttr *Font, Attr;
- UWORD FontX, FontY;
- UWORD OffX, OffY;
- struct TextFont *FlyingToasterFont = NULL;
-
- UWORD FlyingToasterGTypes[] = {
- SLIDER_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- SLIDER_KIND,
- BUTTON_KIND
- };
-
- struct NewGadget FlyingToasterNGad[] = {
- 77, 2, 224, 12, (UBYTE *)"_Objects", NULL, GD_OBJECTS, PLACETEXT_LEFT, NULL, (APTR)OBJECTSClicked,
- 10, 32, 88, 12, (UBYTE *)"_Ok", NULL, GD_OK, PLACETEXT_IN, NULL, (APTR)OKClicked,
- 259, 32, 88, 12, (UBYTE *)"_Cancel", NULL, GD_CANCEL, PLACETEXT_IN, NULL, (APTR)CANCELClicked,
- 77, 17, 224, 12, (UBYTE *)"_Speed", NULL, GD_SPEED, PLACETEXT_LEFT, NULL, (APTR)SPEEDClicked,
- 134, 32, 88, 12, (UBYTE *)"_Test", NULL, GD_TEST, PLACETEXT_IN, NULL, (APTR)TESTClicked
- };
-
- ULONG FlyingToasterGTags[] = {
- (GTSL_Min), 1, (GTSL_Max), 40, (GTSL_Level), 3, (GTSL_MaxLevelLen), 6, (GTSL_LevelFormat), (ULONG)"%3ld", (GTSL_LevelPlace), (PLACETEXT_RIGHT), (PGA_Freedom), LORIENT_HORIZ, (GA_Immediate), TRUE, (GA_RelVerify), TRUE, (GT_Underscore), '_', (TAG_DONE),
- (GT_Underscore), '_', (TAG_DONE),
- (GT_Underscore), '_', (TAG_DONE),
- (GTSL_Min), 1, (GTSL_Max), 3, (GTSL_Level), 16, (GTSL_MaxLevelLen), 4, (GTSL_LevelFormat), (ULONG)"%3ld", (GTSL_LevelPlace), (PLACETEXT_RIGHT), (PGA_Freedom), LORIENT_HORIZ, (GA_Immediate), TRUE, (GA_RelVerify), TRUE, (GT_Underscore), '_', (TAG_DONE),
- (GT_Underscore), '_', (TAG_DONE)
- };
-
- static UWORD ComputeX( UWORD value )
- {
- return(( UWORD )((( FontX * value ) + 4 ) / 8 ));
- }
-
- static UWORD ComputeY( UWORD value )
- {
- return(( UWORD )((( FontY * value ) + 4 ) / 8 ));
- }
-
- static void ComputeFont( UWORD width, UWORD height )
- {
- Forbid();
- Font = &Attr;
- Font->ta_Name = (STRPTR)GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
- Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
- FontX = GfxBase->DefaultFont->tf_XSize;
- Permit();
-
- OffX = Scr->WBorLeft;
- OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
-
- if ( width && height ) {
- if (( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
- goto UseTopaz;
- if (( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
- goto UseTopaz;
- }
- return;
-
- UseTopaz:
- Font->ta_Name = (STRPTR)"topaz.font";
- FontX = FontY = Font->ta_YSize = 8;
- }
-
- int SetupScreen( void )
- {
- if ( ! ( Scr = LockPubScreen( PubScreenName )))
- return( 1L );
-
- ComputeFont( 0, 0 );
-
- if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
- return( 2L );
-
- return( 0L );
- }
-
- void CloseDownScreen( void )
- {
- if ( VisualInfo ) {
- FreeVisualInfo( VisualInfo );
- VisualInfo = NULL;
- }
-
- if ( Scr ) {
- UnlockPubScreen( NULL, Scr );
- Scr = NULL;
- }
- }
-
- int HandleFlyingToasterIDCMP( void )
- {
- struct IntuiMessage *m;
- int (*func)();
- BOOL running = TRUE;
-
- while( m = GT_GetIMsg( FlyingToasterWnd->UserPort )) {
-
- CopyMem(( char * )m, ( char * )&FlyingToasterMsg, (long)sizeof( struct IntuiMessage ));
-
- GT_ReplyIMsg( m );
-
- switch ( FlyingToasterMsg.Class ) {
-
- case IDCMP_REFRESHWINDOW:
- GT_BeginRefresh( FlyingToasterWnd );
- GT_EndRefresh( FlyingToasterWnd, TRUE );
- break;
-
- case IDCMP_VANILLAKEY:
- running = FlyingToasterVanillaKey();
- break;
-
- case IDCMP_GADGETUP:
- case IDCMP_GADGETDOWN:
- func = ( void * )(( struct Gadget * )FlyingToasterMsg.IAddress )->UserData;
- running = func();
- break;
- }
- }
- return( running );
- }
-
- int OpenFlyingToasterWindow( void )
- {
- struct NewGadget ng;
- struct Gadget *g;
- UWORD lc, tc;
- UWORD wleft = FlyingToasterLeft, wtop = FlyingToasterTop, ww, wh;
-
- ComputeFont( FlyingToasterWidth, FlyingToasterHeight );
-
- ww = ComputeX( FlyingToasterWidth );
- wh = ComputeY( FlyingToasterHeight );
-
- wleft = ( Scr->Width - ww )/2 - Scr->WBorRight;
- wtop = ( Scr->Height - wh - Font->ta_YSize )/2 - Scr->WBorBottom;
-
- if ( ! ( FlyingToasterFont = OpenDiskFont( Font )))
- return( 5L );
-
- if ( ! ( g = CreateContext( &FlyingToasterGList )))
- return( 1L );
-
- for( lc = 0, tc = 0; lc < FlyingToaster_CNT; lc++ ) {
-
- CopyMem((char * )&FlyingToasterNGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
-
- ng.ng_VisualInfo = VisualInfo;
- ng.ng_TextAttr = Font;
- ng.ng_LeftEdge = OffX + ComputeX( ng.ng_LeftEdge );
- ng.ng_TopEdge = OffY + ComputeY( ng.ng_TopEdge );
- ng.ng_Width = ComputeX( ng.ng_Width );
- ng.ng_Height = ComputeY( ng.ng_Height);
-
- FlyingToasterGadgets[ lc ] = g = CreateGadgetA((ULONG)FlyingToasterGTypes[ lc ], g, &ng, ( struct TagItem * )&FlyingToasterGTags[ tc ] );
-
- while( FlyingToasterGTags[ tc ] ) tc += 2;
- tc++;
-
- if ( NOT g )
- return( 2L );
- }
-
- if ( ! ( FlyingToasterWnd = OpenWindowTags( NULL,
- WA_Left, wleft,
- WA_Top, wtop,
- WA_Width, ww + OffX + Scr->WBorRight,
- WA_Height, wh + OffY + Scr->WBorBottom,
- WA_IDCMP, SLIDERIDCMP|BUTTONIDCMP|IDCMP_VANILLAKEY|IDCMP_REFRESHWINDOW,
- WA_Flags, WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE|WFLG_RMBTRAP,
- WA_Gadgets, FlyingToasterGList,
- WA_Title, FlyingToasterWdt,
- WA_ScreenTitle, "Flying Toaster Prefs",
- WA_AutoAdjust, TRUE,
- WA_PubScreenFallBack, TRUE,
- TAG_DONE )))
- return( 4L );
-
- GT_RefreshWindow( FlyingToasterWnd, NULL );
-
- return( 0L );
- }
-
- void CloseFlyingToasterWindow( void )
- {
- if ( FlyingToasterWnd ) {
- CloseWindow( FlyingToasterWnd );
- FlyingToasterWnd = NULL;
- }
-
- if ( FlyingToasterGList ) {
- FreeGadgets( FlyingToasterGList );
- FlyingToasterGList = NULL;
- }
-
- if ( FlyingToasterFont ) {
- CloseFont( FlyingToasterFont );
- FlyingToasterFont = NULL;
- }
- }
-
-